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: 1 MODULE setp0Smess (IDENT = ‘v04-000' 

; g ADDRESSING_MODE (EXTERNAL=GENERAL)) = 

3 BEGIN 

es r 

: $ } PITITITILILILLLLL LILI iti iii iiitiT iii tti te RRRRAEe 
3 'e 

; 8 3 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

3 i) 1 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

; 19 \9 : ~ ALL RIGHTS RESERVED. 

: 1 9 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND CO °IED 
8 1 1 1 !e Y IN ACCORDANCE WITH TH R SUCH LICENSE AND WIT! THE 
F} 14 014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY JTHER 
3 15 BI? 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE |) ANY 
3 18 18 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS | -REBY 
$ \ 001 : ms TRANSFERRED. 

; 19 a8 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT OTICE 
; 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EO’ PMENT 
3 1 09 1 : :: CORPORATION. 

; ‘ 5 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABI' .Y OF ITS 
3 : 4 ¢ : ;: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

: i 

: $ B09 ; EIN AE Se Nee AE a NRT SE SESE ION T OE 
i 5 0039 1 t6e 

H , 3H ! : FACILITY: SET Command (SETPO.EXE) 

; : 005¢ i ABSTRACT: 

; 09 ¢ : . This module processes the SET MESSAGE command 

; ‘ 005 | ENVIRONMENT : 

; ; 4 ! VAX/VMS operating system. unprivileged user mode, 

: ry 78 ! AUTHOR: Tim Halvorsen, Dec 1979 

: 6 1 | Modified by: 

3 4 4 .2 

: 666 4 1! v03-006 AEWO001 Anne F Warner 20-Jul-1984 

30 (45 045 1! Enable the message cli$_confqual to be returned when 

3 re peg ' : a file-spec is specified with the /DELETE qualifier. 

> 48 048 1 i v03-005 BLS0295 Benn Schreiber 7=APR-1984 

3 $3 $3 ! : Disable SYSPRV. 

; 34 51 1: v03-004 8LS$0291 Benn Schreiber 24-MAR-1984 

3 26 36 : Make routine name SETSMESSAGE. 

; 2¢ 54 1 v03-003 GAS0112 Gerry Smith 29-Mar-1983 

: 36 2? ' : Remove references to old CLI interface. 

: ; 5 1 v03-002 GAS0091 Gerry Smith 19-Oct-1982 


H 
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i. 


ieSeortgge 98:38:03 yatcHt 844 
Change input request for new CLD syntax. 


v03-001 DWT0036 Davie Thiel 1-Apr-1982 
Don’t allow an indirect message section to be installed. 


' 

' 

' 

! 

' 

: v001 TMHOO001 Tim Halvorsen 26-Dec-1981 
; Complete the goge go Colors a@ message gect ion when 

; desired (/DELETE) unmap 18 the section and deassigning 
: the channel to t the” ile. Two new cells were added to P1 
: space to hold the virtual address range and the channel #. 


; Include files 


LIBRARY ‘SYSSLIBRARY:LIB.L32°; ! VAX/VMS common definitions 


sé fone 


20-74 
$$.8 


$251 


“en as 


' 
; Table of contents 


FORWARD ROUTINE 
setSmessage, 
map_section 
deléte_section; 

' 


; Define literals 


LITERAL 
33 «8 
alse = 6; 
i : 
; Macros 
MACRO 


BEGIN 


MEwn— @ 
a a a a ana a a a ak ad a od od = = = = = = ot 8 2 = 2 = = 
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E 
ENDZ, 


i ad te at 
BBBEBSEIETZ 
> A) 


EXTERNAL LITERAL 
cli$_negated, 


em aa a a a a at ae at tt 2s 1s 1 


w 
wr 00 


perform(command) = 
BEGIN 


LOCAL status; 
status = command; 
If NOT .status 
THEN 


0 
1 0 
3 1 
i : 
5 4 IF NOT .status 
$ 5 THEN 
8 5 ENDZ; 
0 
1 0 : 
§ ; : External definitions 
i . 
5 & EXTERNAL 
$ 5 setp0$l_status, 

§ ctl$gb_msgmask: 

; | etiptatee, 

c w sgchn: 

, etlSglretlbssva: 

1 

2 


sotpest status = .status; 
RETURN fErue; 


return tr erverteannent? = 


LOCAL status; 
status = command; 


RETURN .status; 


BYTE 
VECTOR (2), 
WORD, 


! 
1 


CLIUTL.SRC 


doSeon19Re 09:58:08 


AX-11 OL ise itp 


Process SET MESSAGE 
Map message section into P1 region 
Delete message section from P1 region 


Status returned from option 
Default message flags 

Process permanent message section 
Channel to message section 

Base of fixed Pl region 


Qualifier explicitly negated 
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$251 


Page 
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; } : } 3 } cli$_confqual; ! Conflicting qualifiers 
: 4 135 1 EXTERNAL ROUTINE | 
: 1 1 1 cli t_value, ' Get a value from CLI 
| 1 1 Ctisorczente ! See if qualifier present 
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Licitly set 
Licitly clear 
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SET $s 16 
000" rr 

5 : 
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CLIUTL.SRC 


=$ep-198e 19:09:18 


$$.8 


; 173 ; § } GLOBAL ROUTINE set$message = SET MESSAGE command 
: 16 1 4 tooe 
; 18¢ 159 1! 
. ier ; : } } This routine processes the SET MESSAGE command 
: 165 162 1! Inputs: 
: 4 + BD Benge 
; 16 193 1! 
. % 165 1 ! Outputs: 
3 1 166 1! 
; 170 167 1! status code 
; (171 166 1 !<<< 
3 176 192 1 
: ih i 
> 175 17 ROUT! 
3 1m 0178 a sot. fle s = 
sa" 174 (BUYLTIN ap; ctl$gb_msgmask = .ap <0,4>; true); ! Set message flags 
TITLE 1 Mest 
-IDENT \Vv04-000\ 
-PSECT SOWNS,NOEXE,2 
00000 CLI_FLAGS: 
-BLKB 4 
00 00004 SET_MASK: 
-BYTE 0 
00 00005 CLEAR_MASK: 
-BYTE 0 
eEXTRN SETPOSL_STATUS, CTL$GB_MSGMASK 
-EXTRN CTLSGL_PPMSG, CTLS$GW_PPMSGCHN 
eEXTRN CTLSGL_CTLBASVA 
~EXTRN CLIS_NEGATED Chis CONF QUAL 
-EXTRN CLISGET_VALUE, CLISPRESENT 
-PSECT S$CODES,NOWRT,2 
0000 00000 SET_FLAGS: 
«WORD Save nothing 
50 5C 4 98 cr 0000s EXTZV #0, #4, AP, RO 
000000006 00 0 0 MOVB RO, CTL$GB_MSGMASK 
0 01 DO OO000E MOVL #1, RO 
04 00011 RET 
: Routine Size: 18 bytes, Routine Base: S$CODE$ + 0000 
; 178 175 
3; 179 178 LOCAL 
3 190 17 status, ' status code 
; «181 178 priv_mask : erg thd bo ! Mask to clear SYSPRV 
; HT 0179 file desc : SBBLOCK(dsc$c_s_bin}], ! File descriptor 
; «18 0180 new_mask: YTE; ! New message bit mask 


AX-11 Oi escat A ie oe 


Page 


N 14 
VeeSep-i9ee 2:09:08 | Lekiuresnessete 


; Drop SYSPRV 


ch$fill(0,8.priv_mask); 
erry mask(prv$v Sysprv) 
‘ 


MFwn— 


21; 
TPRVCenbdflg=0 ,prvadr=priv_mask); 
Get message file name 
dyndesc (file 


# desc); 
et_value(ZASCID ‘FILE’, file_des 
LagsCqual_delete] = cli$present( 


i 


00 oO 
Wwnr—O0oe 
--"- 
oF 

o 


a 


Sai 
ASCID DELETE"); 


1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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Get qualifiers on command Line 


poe Sc tuprepent COneC ED *TEXT'); ! /CNOJTEXT 
° u 

HEN set_mask = .set_mask OR 1 

LSE IF .status EQL cli$_negated 

HEN clear_mask = .clear_mask OR 1; 


pe et teprasent (ENS sS *IDENT"); ! /CNOJIDENT 
° u 

HEN set_mask = .set_mask OR 2 

LSE IF .status EQL cli$_negated 

HEN clear_mask = .clear_mask OR 2; 


p< cliS$present(ZASCID ‘SEVERITY'); ! /CNOJSEVERITY 
-Status 

HEN set_mask = .set_mask OR 4 

LSE IF .status EQL cli$_negated 

HEN clear_mask = .clear_mask OR 4; 


gotus . cliS$present(ZASCID ‘FACILITY'); ! /CNOJFACILITY 
-Status 

HEN set_mask = .set_mask OR 8 

LSE IF .status EQL cli$_negated 

HEN clear_mask = .clear_mask OR 8; 


Cs Ss a ss 
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Set the new message display flag settings first 


———— “Mw ATT He a AM Hew IM He 


ee NEQ 0 OR .clear_mask NEQ 0 ! If we gotta change something, 


BEGIN 
new_mask = (.ctl$gb_msgmask OR .set_mask) AND NOT .clear_mask; 


per form(SCMKRNL(ROUTIN = set_flags, 
= ARGLST = .mew_mask)); ! Set new message flags 


vo 


COOCOCCSCOCOOCOCOOCoOooooooo palo la lo lalallala lola lo la lolololololololo) 
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If /DELETE was specified, then delete the current section 
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4.0-74 
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16-50-1984 99: 58:08 AX-11 Oi hese 4.0-74 Page ug 


14-Sep-1 CLIUTL.SRCJSETPOMESS.852;1 
; if gclt flops Cqual_delete] ! If /DELETE specified, 
4 BEGIN 
7 Hen \eadescléscdu_length’ NEQ 0 ! If file spec specified, 
rk BEGIN 
te peterst status = cli$_confqual; 
4 RETURN ! return conflicting qualifiers 
28 END; 
P ‘3 per form(SCMKRNL(ROUTIN=delete_ section, ! then delete the section 
25 4 ARGLST=file_desc)J; 
Z , END; 
2 ¢ : 
28 : If message file name specified, then map the file into 
33 ry : the Pl region and set the process permanent message pointer. 
9 0 : 
60 0 2§ IF .file descl(dsc$w_length] NEQ 0 ! If parameter specified, 
3) 0 3 ad NOT .cli_flags Cqual_delete] ! and not deleting the section 
es 7 re BEGIN 
65 9 $¢ i Only allow 1 section to be mapped at a time for now 
28 0 rts } This can be extended at a later date. 
see if ct tSal_ppmsg NEQ 0 ! If section already mapped, 
0367 per form(S$CMKRNL (ROUT IN=delete_section,ARGLST=file_desc));! unmap it 
0269 Map the specified file as the current section 
Pp 6 71 per form($CMKRNL(ROUTIN=map_section, ! map the section 
0 i ARGLST=file_desc)); 
0 a END; 
pg?2 RETURN true; 
; 280 0597 END; 
; INFO#212 L1:0244 


; Null expression appears in value-required context 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


45 4C 49 46 00000 P.AAB: .ASCII \FILE\ 3 

918 ooe 0004 P.AAA: .LONG 17694724 3 

0000 9" $8 ADDRESS P.AAB 3 

00 00 45 54 45 4C 45 & C P.AAD: .ASCII WEL TES <O><0> 3 
oie $08 14 P.AAC: .LONG 17694726 3 

0000000° 18 ADDRESS P. 3 

54 58 4 if P.AAF: .ASCII \TEXT\ F 

8105 00 4 P.AAE: .LONG 17694724 : 

0 0099" 4 ADDRESS P.AAF 3 

00 00 00 54 46 45 44 4 8 P.AAH: .ASCII \IDENT\<0><0><0> F 


sures 


FB 


08 


A6 


00 


01 


O06 ait 


59 54 49 52 45 56 


000000006 


000000006 


FF 


op 


“n 


59 54 49 4C 49 43 i 


at 


10 


O20E0090 


4400 
10 


1¢ 


OFFC 0C000 
00 9E 0000 
F 9E 000 
0 sis 
F 001 

Oats 
CF 00 
10 0028 
00 0028 
ag 0030 
1 0032 
7E 00 
AE 003 
7E 0038 
4 030 
F 044 
AE 048 
8F 4 
02 5 
AA 5 
01 5C 
50 SF 
AA 65 
1 
0 
1 
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—oom " O00 — Corn“ O09 9 "COM NOMMOMNDOONOOND WOCOO0VCd 
—O00 ™ Con $$ 08 "ON -$- DOD "OO "*WAILODL "OO Orommom 


So 
om 
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~Sep-1 


AAG: 


1$: 


23: 


Ww 
nr 


=~ 
wn 


» LONG 


ADDRESS .AAH 
ASCI Mi ERITY\ 
“LONG 1 694 47 8 

S ADDRESS 

ASCH vFACILIN 

? SORE ESS P.AAL 

.EXTRN SYSSSETPRV, SYSSCMKRNL 
-PSECT S$CODES$,NOWRT,2 

.ENTRY SETSMESSAGE, Save R2,R3,R4,R5,R6,R7,RB,R9,- 
MOVAB SETPOSL_STATUS, R11 
MOVAB PP. 

MOVAB SYSS$CMKRN 

MOVL cribs NEGATED, RB 
MOVAB , R? 
MOVAB ¢ » R6 

SUBL rie P 

movcS #0, (SP), #0, #8, PRIV_MASK 
BISB2 #16, PRIV_MASK+3 

CLRQ.  =(SP) 

PUSHAB PRIV_MASK 

CLRL (SP 

CALLS SvS$ 

OVL rie 1336, git _DESC 
CLRL 

PUSHR 

CALLS 52. <At0,SP> _VALUE 
PUSHAB P.AAC 

CALLS #1, CLISPRESENT 

NSV RO, #0, #1, CLI_FLAGS 
PUSHAB P.AA 

CALLS #1, CLISPRESENT 

LBC. © STATUS 
BISB2 #1, SET_MASK 

RB 2$ 

CMPL STATUS, R8 

NEQ 

BISB2 #1, CLEAR_MASK 

PUSHAB P. 

CALLS #1, CLISPRESENT 

BLBC STA 

BISB2 e. SEf_MASK 

BRB 4 

CMPL STATUS, RB 

BNE 4$ 
B1SB2 CLEAR_MASK 

PUSH P 

CALLS CLISPRESENT 

BLBC Hi TATG 

BISB2 a, SP PASK 


be 12:09:18 


AX-11 Bliss-32 V4.0 
CL TUL SREISETPOME SS 2S 


17694725 


2;1 


g 


0156, 


> 15 

SET $$ 16-Sep-1984 00:38: AX-11 Bliss-32 ¥4.0-74 Page 10 
Mae 12=860-198¢ 99:38:98 CL TUTL SREISETPOMESS. B92: 1 9 a) 
58 i i 5$: cut TATUS, RB ; 0213 
cc BRP BRM os, FEBRS Be, cuentas 88 

7 o1 FB AD CALLS #i, CLISPRESENT : 
6 B BLBC STATUS, 7$ ; 0217 
FF AG : 08 1 sB2 #8, SET_MASK ; 0218 
58 D1 089 7$: cMPL STATUS, RB ; 0219) 
6 8 sh 008 BISB2 #8, CLEAR_MASK : 0220 
0 FF A6 OA 6 Ci 8$: MOVZBL SET MASK, RO : 0226 | 
04 1 C BNEQ : 
$8 33 doocs pear | fog AS an 
$2 000000006 : 9 38 98: MOVZBL CTLSGB_MSGMASK, R2 0229, 
51 50 : eB 00D Biekg CLEAR_MASK, RO, NEW_MASK : 
£ 1 9A 00009 MOVZBL NEW_MASK, -(SPS ; 0232) 
69 ie HA $0r6 CALLS per a ; | 
45 85 £9 duos BLBC =: STATUS, 14$ ; | 
19 FB OG SOE O0E6 10$:  BLBC CLI_FLAGS, 12$ ; 0238. 
65 $3 oooEe Ge, tee ; O2kt 
68 000000006 8F 00 O00E MOVL  #CLIS_CONFQUAL, SETPOSL_STATUS 7 0244 
B 11 OOF BRB 16$ : 0243, 
E DD OOOF7 11$:  PUSHL SP > 0249 
a oe oe CALLS) FOL SYSSEMKRNE Soil 
28 85 £8 O100 BL BC STATUS, 14$ : | 
SF 8S Beige 8! deat FILE_DESC ; 0257 | 
3 FB AG «EB 00107 BLBS  CLI_FLAGS, 15$ : 0258 
000000006 00 05 00108 TSTL  CTLSGL_PPMSG > 0265 | 
g¢ 13 00111 BEQL 13S : 
E oD 00115 PUSHL SP > 0267 | 
0000v CF 9F 0011 PUSHAB DELETE SECTION : | 
69 3 FB 00119 CALLS #2, SYSSCMKRNL 3 
0C E9 0011C BLBC STATUS, 14$ ; | 
—E DD 011 13$:  PUSHL SP : 0272. 
0000v CF 9F 00121 PUSHAB MAP_SECTION ; 

83 3 EB 00158 gibs:  StaTog ics 
68 D 091 B14$:  MOVL STATUS. SETPOSL_STATUS : | 
0 01 DO OO12E 15$:  MOVL #1, RO : 0275 | 
04 00151 RET 3 
50 ps 001 216%: CLRL RO : 0277. 
4 001 RET : 


309 bytes, 


; Routine Size: 


Routine Base: 


SCODES + 0012 
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BEGIN 
BUILTIN 
PROBER; 


section: 


15 


This routine maps the message file into the P1 region 
as a@ process personas message section. The file name 
is described by the parameter descriptor block. 


Inputs: 


ap = Address of parameter descriptor block 


Outputs: 


The file is mapped; else status returned in setp0$i_status. 


aogreter AP 
Built-in function PROBER 


REF BLOCK C,BYTE]; 


Address of parm desc. block 


BLOCK Cfab$c_bin,BYTE], |! FAB to access file with 
! temporary status 
range: VECTOR (2), ! CRMPSC address range 
REF BLOCKC,BYTE); ! Use to access actual section 


Open the message file and obtain a channel to it 


Initialize FAB 


SFAB_INIT(FAB = fab, : 
FNA = .ap Cdsc$a_pointer], ! Address of file name string 
FNS = .ap CLdsc$w_length], ' Length of file name string 
on = uP 1T(* EXE"), ! Default name string 
= 
FOP = UFO); ! User file open 
return_if_error(SOPEN(FAB = fab)); ! Open the file 


range 
range 


return_if_error($CRMPSC(INADR = range, 
RETAD 


es meaty 


Map the section into P1 space 


Signal to EXPREG in P1 region 
= .range 


Map the section into P1 space 


R = range, Get resulting address range 


' 

i 
FLAGS = sec$m_expreg, i Expand region to map section 
CHAN = .fab Eranbt stv3. 4 : ° 
ACMODE = psl : 


Channel number of open file 


clexec, ! Owned by exec mode, read only 


1E-Bep-1964 00:58:08 yanet Bliss 32, 


art after image header 


5 
Fetal a a mC rt i eo 
OTe: Assume 1 Block image header 


VBN = 2)); S 
N 
: 
} Chenge the page provection to user read only. This 
i 


is so that the probing in SGETMSG works for all callers. 


status = SSETPRT(INADR=range,PROT=prt$c_ur); ! Change to user read only | 


DWONOULWN OOO 


4 
2 reno Status ! If error changing protection 
é BEGIN 
$4 tb Lb barca Aes JE ! Unmap section 
5 SDASSGN(CHAN=. fab Cfab$i_stvJ); i and deassign channel 
5 RETURN .status; i return with status 
5 ND; 
5 
5 
5 


Verify validity of message section 


section = .range (0); ! Address the contents of the section 
IF (.section Cplvst. t ped NEQ plv$c Eat ys-n” ! Verify validity of section 
-sect veretey 2 
OR (. peti ion telus msgdsp) N 6 6) 
on b- -section Cplv$l_exec] NEQ EEX" 65160101" ) 
365 BEGIN 
369 BIND 
368 rel = section Colvst ag ! self-relative pointer 
369 msc = rel + .re BCOCK C, BYTE]; ‘| message section 
IF PROBER (ZREF (psl$c_user), ZREF (1), msc Cmsc$b_type)) | 
ao Cmsc$b_type] NEQ msc$c_msg ! only message text type allowed 
true | 
END | 


Message file illegal, unmap it 
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Dole) MEW —“OOONOULSWN Oo WN SO OONAUE WN OC OOVOULS Win —O0Oo wn 
PRIPPININIPIPIPINIWNI WNIT BBB BE BBE EE & BAAN IPINIPIPIPIDI NIA IIINIPOPIPOPPONINUNININYD 
| mee 
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BEGIN 

Sore eas JaADRor ones) : 
SDASSGN(CHAN=. fab CfabSl _stv)); 
oe ss$_ivsecidctl; 


Unmap section 
and deassign channel 
Signal invalid message file 


ctl$gl_ -pons9 fo) = -range 93; Set address of section vector 


ctl$gl s .range 
ctl Sou some By = .fab oe iy: stv); 
ctl$gl_ctlbasva = .range (0); 


RETURN true; 


Save channel to message section 


Set new base of fixed P1 region 
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Return successful 
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339 398 eno; 


<PSECT $PLIT$,NOWRT,NOEXE,2 
45 58 45 2€ 00058 P.AAM: .ASCII \.EXE\ : 
.EXTRN SYSSOPEN, SYSSCRMPSC 
SEXTRN SYSSSETPRT, SYSSDELTVA 
“EXTRN SYSSDASSGN 
-PSECT SCODE$,NOWRT,2 


OOFC 00000 MAP_SECTION: 


RD Save R2,R3,R4,R5,R6,R7 : 
57 000000006 00 9€ 9002 MOVAB SYSS$DASSGN, R? : 
é 000000006 00 9E 0000 MOVAB SYSSDELTVA, R6 : 
SE A A 9E 00010 MOV -88(SP), S$ F 
0050 = 8F 00 6E . 00 2¢ 0014 movcS #0, (SPS, #0, #80, SRMS_PTR + 0319 
08 AE 500 F BO 0001 MOVW # #20483, $RMS_PTR : 
OC AE 00020000 ef DO 000 3 MOVL #131078, SRMS_PTR+4 : 
1 AE 90 00028 MOVE #2, SRMS_PTR+22 : 
AE 90 0002F MOVB #2, SRMS_PTR+51 $ 
4 AE 04 AC 4 0033 MOVL 4(AP), SRMS_PTR+44 : 
8 AE 0000" CF 0038 MOVAB P.AAM, $RMS-PTR+48 : 
fa 6c 9 00036 MOVB (AP), SRMS_PTR+52 ; 
D AE 04 90 0004 MOVB #4, $RMS_PTR+53 ; 
08 AE OF 90046 PUSHAB F + 0321 
000000006 00 gi FB 0004 CALLS #1, SYSSOPEN : 
2D 0 €9 9090 BLBC Atus : 
6E 40000000 8F D0 0005 MOVL 41073741824, RANGE : 0327 
04 AE ge 00 003A MOVL § RANGE, RANGE+4 F 038 
: C 000 LRGs =( SP) + 0335 
9 DD 000 PUSHL & 3 
E D4 0006 LRL -(SP $ 
24 AE DD 00064 PUSHL FAB+12 : 
7E 7C 00067 CLRQ. = =(SP) ; 
7E 04 00069 CLRL = F 
00020000 8F DD 0068 PUSHL #131072 ; 
1 DD 00071 PUSHL ‘#1 : 
38 AE 3F 9 73 PUSHAB RANGE : 
C AE OF te PUSHAB RANGE ; 
000000006 00 o¢ FB 0 CALLS #12, SYSSCRMPSC : 
01 i 6 1$: BLBS STATUS, 2$ ; 
7E F 7D 00084 2$: MOVQ #15, =(SP) : 0344. 
E 7C 00087 CLRQ = (SP) ; | 
10 AE OF 0 9 PUSHAB RANGE : 
000000006 09 F ¢ CALLS #5, SYSSSETPRT ; 
D 9 MOVL RO STATUS : | 
1 5 % BLBS STATUS, 3$ : 0346 
— 7c CLRQ  =(SP) > 0349 
08 AE 9F 00098 PUSHAB RANGE : 
ry. 03 FB O009E CALLS #3, SYSSDELTVA : 


sree 


65160101 


000000006 
000000006 
000000006 


; Routine Size: 262 bytes, 
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00 
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So 


Routine Base: 
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SCODES + 0147 
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15 
16-Sep-1984 00:38: AX-11 Bliss-32 V4.0-74 
18-808-1382 99:38:98 CLIUTLSRCISETPOMESS .B 2:1 
Al PUSHL FAB+12 
CALLS #1, SYSSDASSGN 
A MOVL STATUS, RO 
AA RET 
AB 3$ MOVL RANGE SECTION 
5 cMPL ‘ ECTION), # 
B iste 4 (SECTION) 
Bs CPL §(SECTION), 86 
B CMPL 1e(SECTION), #1695940865 
é ADDL? #16, RO 
CB ADDL (ROS, RO 
ce PROBER #3, #1, (RO) 
D BEQL © 4$ 
D4 TSTB = (RO 
06 Ea. 465 
ght Fille atte 
Dp CALLS #3 , SYSSDELTVA 
E CALLS #1, SYSS$DASSGN 
E6 MOV ZL #740, RO 
eC 5 MOVO RANGE, CTLS$GL_PPMSG 
F MOVW  FAB+12, CTL$GQ_PPMSGCHN 
FB MOVL RANGE, CTL$GL_CTLBASVA 
02 MOVL #1, RO 
0 RET 


row 


0350, 
0351 | 


wn 
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ibden-1964 09:88:08 YANN OLag=32 ye0-74g, 


ROUTINE delete_section = 


This routine deletes an existing process permanent 
message file currently mapped in P1 space. 


i Outputs: 


' 
' 
' 
' 
' 
ap = Address of parameter descriptor block 
: The section is unmapped; or status returned in setp0$\_status. 


BEGIN 

if -ctl$gl_ctlbasva EQL .ctl$gl_ppmsg (0) 
ctl$gl_ctlbasva = .ctl$gl_ppmsg [1] + 1; 

setp0$l_status = SDELTVA(INADR=ctl$gl_ppmsg); 


SDASSGN(CHAN = .ctl$gw_ppmsgchn); ' Deassign channel to file 
ctl$gw_ppmsgchn = 0; ! Indicate channel no longer valid 
ctl$gl_ppmsg fo} = 0; ! Zero address of section 
ctl$gl_ppmsg : 

RETURN true; 

END; 


001C 00000 DELETE. SEC tions 


~WOR Save 
54 900000006 99 MOVAB ait ie iit yee 
x 90000006 0 MOVAB CTLSGW"PPMSGCHN RS 
3 000000006 00 MOVAB CTLSGL-PPMSG, R 
6 4 cMPL cILSGL- “CTLBASVA, CTLSGL_PPMSG 
64 046 A2 1 ADDL3 #1, CTLSGL_PPMSG+4, CTLSGL_CTLBASVA 
CLRO 0. = ( §P) 
0000006 3 CALLS a8 SYSSDELTVA 
000006 09 g VL RO. SET Hitt STATUS 
6 MOVZWL CTLSGW_PPMSGCHN, -(SP 
000000006 0 1 A #1, SYSSDASSGN 
6 LRW = CTL $GW_PPMSGCHN 
6 CTLSGL- SG 
#1, R 
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433 7 
é 0238 0 ELUDON 
PSECT SUMMARY 

Name Bytes Attributes 
SOWNS NOVEC, WRT, RO ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 658 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 92 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
ccccsces Syabels ococcece Pages Processing 

File Total ioaded Percent Mapped Time 

.$255$D0UA28: CSYSLIBILIB.L32;1 18619 76 0 1000 00:01.8 


Information: 1 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETPOMESS/OBJ=OBJ$:SETPOMESS MSRC$:SETPOMESS/UPDATE=(ENHS: SE TPOMESS) 


; Size: 658 code ; 98 data bytes 


Run Time: 

Elapsed Time: 51.7 

Lines/CPU Min: 165 

,onenee/CPE-Mie: 2561 
160 pages 


Compitett 
Compi ation. Complete 


005 AH-BT13A-SE EQUIPMENT CORPORAT 
| VAX/VMS V4.0 NTIAL AND PROPRIETA 
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